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EDITORIAL 


Chers Amis, 


Voici donc le nouveau JPC, mis en page par les membres du nouveau bureau. 
Nous l’avons voulu représentatif des différents domaines qui seront traités dans 
les prochains numéros. Nous espérons qu’il répondra à vos attentes. 


Comme vous avez pu le voir dans le sommaire, nous étrennons une nouvelle 
rubrique consacrée au HP-95. Certains articles qui y sont consacrés ce mois-ci 
montrent que si nous sommes en présence d’un "Compatible IBM", celui ci 
possède des possibilités qui sont encore à découvrir, comme cela l’a été par le 
passé pour toutes les autre machines de la marque. Il est donc inutile de vous 
dire que la chasse est ouverte, et que si vous trouviez une "fonction cachée" ou 
tout autre indice sur l'organisation interne, non dévoilée par HP, nous sommes 
bien sûr prêts à en faire écho... 

Comme vous pouvez le voir, nous serons de plus en plus amenés à utiliser 
d’autres machines, comme des IBM PC, pour faciliter le développement 
d'applications tournant sur nos machines de poche. Afin de ne pas déséquilibrer 
le contenu du journal avec des sources en assembleur ou en langage évolué (C, 
Pascal.) pouvant être beaucoup plus longs que ceux que nous publions 
auparavant, nous avons décidé de modifier la présentation des listings. Vous 
pourrez en juger en fin de ce numéro. Nous attendons votre avis sur cette 
nouvelle présentation. 


Parlons maintenant du HP-48. Depuis quelque temps, nous avons en notre 
possession ce que nous appelons les DS HP-48, bien que cela soit sensiblement 
différent avec ce qui a été fait pour le HP-71. Ce document est accompagné d’un 
ensemble d’utilitaires permettant de développer des applications HP-48 sur 
IBM-PC. Nous vous informerons dans le prochain numéro de la méthode choisie 
pour vous distribuer ces éléments. 


Pour finir, vous avez pu remarquer en lisant le sommaire, que ce journal compte 
relativement peu d’articles, écrits principalement par des membres du bureau. Il 
est donc relativement fin, mais nous espérons pouvoir, dès le prochain numéro, 
reprendre notre pagination normale, qui est de 36 à 40 pages. Nous n’osons plus 
vous rappeler, une fois de plus, qu’il est nécessaire que vous nous envoyez le plus 
vite possible des articles. En effet, il serait dommage que JPC disparaisse une 
fois de plus, mais cette fois pour cause d’articles promis mais non envoyés ! 


Ceci dit, nous vous souhaitons une bonne lecture... 


Jacques Belin (123) 
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HAUTE PERFORMANCE 


C’est le nom du club créé par la bien connue 
Fédération Française des Jeux Mathématiques, et dont 
le lancement est supporté par Hewlett Packard. Ses 
activités sont principalement centrées sur la HP-48, 
ainsi qu’une section dédiée au HP-95. 


Leur journal, faisant huit à douze pages et paraissant 
tous les trois mois, se veut plus généraliste et moins 
pointu" que JPC. Vous y trouverez donc des 
informations sur les nouveaux produits, des articles 
courts et quelques trucs et astuces concernant les 
calculateurs de poche. 


Un de ses buts à long terme est de devenir le club des 
clubs, fédérateur des différents groupes d’utilisateurs 
(de HP-48 notamment) étant apparus en France ces 
dernières années. 


Au lieu de nous livrer à une guerre fratricide, nous 
avons décidé de vivre en commun et de partager nos 
informations, afin de rendre nos deux clubs 
complémentaires. I1 sera donc possible de voir dans 
leur journal de courts articles signés de membres de 
PPC, qui seront traités de façon plus fouillée dans 
notre revue. 


Voici son adresse : 


Club Haute Performance 
Centre Châteaugaillard 
1, Avenue Foch 
94700 MAISON ALFORT 


Le coût de l’adhésion est de 48 F par an (pour quatre 
journaux) et donne droit à la publication gratuite 
d’une petite annonce. 


Jacques BELIN (123) 


COURRIER DU COEUR 


HOCLET Michel 

9 allée du bois de la Cyprenne 
91400 Orsay. 

Tel pers. : (1) 69 07 32 41. 
Tel prof. : (1) 69 08 59 86. 


Vend: 


Unité de disquettes HP 9114B, 2500FF; Imprimante 
ThinkJet, 1500FF; Interface video 80 col. HP 92198 et 
moniteur monochrome HP 92913A, 1500FF; 
Interface HP-IL/RS 232C HP 82164A, 1000FF. 


VIRTUANI Fabrizio 
via Valsesia 86 

20152 Milano. Italia 
Tel : 02/4566639. 


Vend: 


HP-71B version 2CDCC; HP-IL; RAM 96 Ko CMT; 
HP-IL card pour IBM-PC; Software HP-IL LINK 
pour IBM-PC; Internal Design Specification 3 vol.; 
Hardware Design Specification, HP-IL Design 
Specification; Interface RS-232C; Chargeur de 
batteries; 2 cables HP-IL de 1 m; Interface parallèle 
HP 82166A  GP-IO; Modules Math, 
Forth/Assembler, HP 41/71 Translator, Text Editor, 
Data Communication, AMPI Statistics, Finance, 
Circuit Analysis, Data Acquisition, Curve Fitting. Le 
tout pour 15000 FF avec documentation et 
emballages. 


TORCHET Jean-Yves 
Tel : 24 57 04 45 (province) après 20H 


Vend: 
2 HP-48SX, état neuf avec manuels, 1500FF chaque; 


extension mémoire 128K, 500FF; cable connexion PC, 
S00FF. 


AOUFI Asdin 
Tel. prof. : (1) 49 40 34 34 


Vend: 


HP-75C, parfait état avec documentation et chargeur, 
3000FF. 














HP-28 


JL. Attenoux 
JL. Attenoux 


Gestion d’erreurs 
Mot de passe 








JPC76 Page3 — 





—— JPC 76 Page 4 





GESTION D'ERREURS 


Ce programme permet de gérer les erreurs dans vos 
programmes pour HP-28C/S. 


Utilisation : 
#<N°Erreur> ERREND 
Effet : 


Affiche le message d’erreur correspondant, émet un 
BEEP d'erreur et arrête l'exécution du programme 
en cours. Ce programme vous permettra tout en 
simplifiant l'écriture de vos programmes de gagner 
quelques octets et de donner à vos applications un 
"Look HP" en vous servant des messages, et ils sont 
nombreux, qui existent dans la ROM de votre 
machine. 


Listing : 

Code asm  Mnémoniques Commentaires 

6920 CON(5) 02096 Début d'objet routine 

LM 

début: 

200%XX CON(5) fin-début Longueur du programme 
en quartets. 
188 et 1CC:00030. 
288:0003C. 

8F xxxxx  GOSBVL SAV.REG Sauvegarde registres 
D0,D1,8 et D 
188 et 1CC:04EE2. 
288:05081. 

18 F510C DO=(5) CO15F Pour ver 288 seulement: 

LI c=0 À Mise à zéro du 
CMD NUMBER, pour ne 

144 DATO=C A pas faire référence à 
une instruction 
particulière dans Le 
message d'erreur. 

143 A=DAT1 À A=Adr objet sur La pile 

1131 D1=A On va chercher à 

179 D1=D1+10 récupérer L'info utile 

143 A=DAT1 À A=Num. erreur à traiter 

8F xxxxx  GOSBVL LOAD.REG Rappel registres sauvés 
188 et 1CC:04F19. 
288:05088. 

8D xxxxx  GOVLNG ERROR Exécution routine HP 
en ROM. 
188 et 1CC:03358. 
288:03964. 

142 A=DATO À Fin de La routine 
(standard). 

164 DO=D0+5 808C PC=(A) 

fin: 


Avertissement : 


Il convient d’être très prudent lors de la saisie de la 
chaîne à assembler, car une erreur de frappe 
risquerait de provoquer un "Memory Lost" de votre 
machine. 


Pour une HP-28S assembler la chaîne suivante : 


“é9c20c30008F180501BF510CD21441431311791438F8805 
080469301421648080" 


Puis stocker dans le répertoire HOME le System Object 
obtenu sous le nom ’ERREND’. 


Pour une HP-28C version 1BB ou 1CC la chaîne est 
la suivante : 


“69c20030008F2EE401431311791438F91F4080853301421 
64808C" 

Puis sauvegarder le System Object obtenu sous le nom 
MERREND'. 


Exemples d'utilisation : 


#5h ERREND 
#106h ERREND 
#206h ERREND 
#0 ou réel 
quelconque 


donne Le message "Memory Lost" 
donne Le message "Syntax Errort 
donne Le message "Undefined Name" 


n'émet pas de BEEP 


Un exemple un petit peu plus concret pour une 
HP-28$ : 


Pour éviter de détruire complètement un répertoire 
utilisateur en exécutant l'instruction CLUSR par 
mégarde, il vous suffit de sauvegarder le petit 
programme suivant dans le répertoire principal HOME 
sous le nom ’cLusr’. Voici la liste des actions à 
effectuer : 


CHOME] 

« #103h ERREND » 

"21D205034C4553525" 

Assembler cette chaîne résultat: !CLUSR' 
{STO] 


Si vous exécutez maintenant la commande cLUSR le 
message “Improper User Function" apparaîtra et votre 
répertoire ne sera pas effacé. Pour annuler la 
redéfinition de cLusk il suffit de détruire le 
programme CLUSR grâce à la commande PURGE. 














Remarque : 


Si aucun argument n’est présent sur la pile, si 
argument est invalide ou s’il n’y a pas de message 
d'erreur correspondant au numéro spécifié, cette 
routine émet un BEEP et arrête l’exécution du 
programme. 


Conclusion : 

J'ai tenu à expliciter au maximum le listing du 
programme car je pense que cela pourra donner des 
idées à certains pour se mettre à la programmation 
assembleur sur HP-28. Je conseille d’ailleurs à tous 
ceux qui sont désireux d’apprendre, de se référer à la 
bible en la matière, je veux bien sûr parler du 
formidable bouquin écrit par Paul COURBIS et 
Sébastien LALANDE, "Voyage au centre de la 
HP-28C/S", bouquin qui a permis à l’humble 
débutant que je suis d’écrire ce petit programme. 


Jean-Louis ATTENOUX (83) 





PASSWORD MACHINE 


Ce programme pour HP-28S 2BB permet de protéger 
le contenu de sa machine par un mot de passe. Ce 
mot de passe est en fait une combinaison de touches à 
appuyer simultanément. Une fois le programme 
démarré il est alors impossible de l’arreter à moins 
d'effectuer la bonne séquence de touches ou un 
Memory Lost. Dans tous les cas vos données 
confidentielles seront protégées 


Liste des routines : 


oFF Permet d’éteindre la machine 

Lock Permet d'empêcher les tests et arrêt softs 
de la machine par les séquences de touches 
habituelles 

wo Wait Until Owner routine de lecture de la 
séquence de touches 

MA Programme liant l’ensemble des routines 
précédentes. 


Listings : 


Routine OFF : 


"76C2085E8109F20" ASM OFF! STO 


Routine LOCK : 

69020 CON(5) 02096 
34000 CON(5) 00043  Size=00043 Nibbles 
8F18050 GOSBVL SAV.REG 
1F4100C D1(52= C0014 
3110 LC(2) 01 

148 A=DAT1 B 

AE B=A 8 

BEC AS-A-1 B 

0Eé6 AAC B 

BEE c=-c-18 

0E65 c=c&B 8 

OEéE AAIC B 

149 DATI=A B 
8F88050 GOSBVL LOAD.REG 
142 A=DATO A 

164 DO=D0+5 

808c PC=(A) 


"69c20340008F 180501F4100C311014BAE8BEC0E66BEE0E650 
E61498F88050142164808c" 

ASH 

‘LOCK! STO 


Remarque : 

Cette routine effectue un OU Exclusif sur une zone de 
la mémoire de la HP-28S. Il faut donc l’effectuer deux 
fois pour retrouver l’état antérieur de sa machine. 


Routine wuo : 

69C20 CON(5) 02096 

05000 CON(5) 00050  Size=00050 Nibbles 

8F18050 GOSBVL SAV.REG 

1F5300€ D1(5)= C0035 

30F LCC1) F 

1500 DATI=C 1 

3489200 LC(5) 00298 masque d'entrée 
clavier 

D5 B=C A 

3426000 LC(5) 00062 masque de sortie 
clavier 

8F1DA10 GOSBVL 01AD1 

E9 c=c-B A 

BAE 2c20 A 

DE GOYES -19 

300 LeC1) 0 

1500 DATI=C 1 

8F88050 GOSBVL LOAD.REG 

142 A=DATO À 

164 D0=D0+5 

808c PC=(A) 
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Qui est équivalente à : 


"69c20050008F180501F5300C30F15D03489200D534260008F 
1DA10E98AEDE30015D08F88050142164808C" 

ASM 

fWUO' STO 


La combinaison pour sortir est  d’appuyer 
simultanément sur les touches [USER], LENTER], [NEXT] 
et [21 


Routine M\A : 


« CLLCD 

" User password is ?" 

1 DISP #0h ->RL LOCK #0h ->RL est optionnel pour 
une meilleure présentation 


OFF LOCK WUO LOCK Suivent Les actions à 
exécuter à chaque démarrage 
SPEED CLOCK » (SPEED et CLOCK sont des 


exemples d' actions) 
#M\A! STO 


Avertissement : 


Il convient d’être très prudent lors de la saisie de la 
chaîne à assembler, car une erreur de frappe 
risquerait de provoquer un "Memory Lost” de votre 
machine. 


Enfin, je vous livre le moyen d’obtenir la version de 
votre machine par ce petit programme en assembleur 
qui comme la fonction oFF exécute la ROM de la 
HP-28$ à partir d’une adresse donnée. 


"76C20A000009F20" 
ASM 
!VER' STO 


Voilà, j'espère que ces routines vous rendrons de 
nombreux services, pour ma part je les utilise 
quotidiennement. 





Bonne Programmation à Tous ! 


Jean-Louis ATTENOUX (83) 
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HP-48 


A. Aoufi 
A. Aoufi 
A. Aoufi 


Nombres de Bernoulli 
Intégrales Eulériennes complexes 
Fonction d’Erreur 
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NOMBRES DE BERNOULLI 


Jacob Bernoulli a découvert les nombres qui portent 
son nom au 17ème siècle. Ceux-ci interviennent dans 
de nombreux domaines de la Mathématique : 

- Polynômes de Bernoulli, 

- Formule sommatoire d’Euler-MacLaurin, 

- Théorème de Kummer sur le problème de Fermat, 

- Fonction ç de Riemann. 


Le programme proposé évalue ces nombres B.,, pour 
1<n< 13 mais n’utilise pas la multiprécision. 


Défi: 





on 


La suite B, vérifie la relation : 





Méthode 


On évalue la suite B,, qui vérifie : 








B= À 
B; = -1/2, 
E Be Con +1 = 0 


On définit des procédures de calcul exact sur des 
rationnels. 


Le programme 
Il se compose des modules suivants : 


«+ indice 
« {3} indice 2 + 
+ 2 + 0 CON + ber 
« 1 'ber(1,1)" 
STO 1 ’ber(1,2) 
STO -1 ’ber(2,1)’ 
STO 2 ‘ber(2,2)' 
STO 1 indice 
FRp12p*-21p1- 
FOR L 
IFp1> 
THEN 2 p* 1 +2 | * COMB 
fber(L+2,1)' -NUM * 
fber(L+2,2) -NUM 
SIMPLIFIE SOMME 
END 
NEXT 2 p * 1 + * NEG SIMPLIFIE 
“ber(p+2,2)' STO ’ber(p+2,1)' STO 
NEXT 





ber 


» 
IBER’ STO 


«nd 
« n d PGCD + pgcd 
« n pgcd / d pacd / + nn dd 
« 
IF dd 0 < 
THEN nn NEG 
‘nn! STO dd NEG 
fdd' STO 
END nn dd 


» 
!SIMPLIFIE’ STO 


«+ ni di n2 & 
« di d2 PPCM + ppem 
« ni ppem * di / n2 ppem * d2 / + 
ppem SIMPLIFIE 


» 
!SOMME’ STO 


«+ab 
«a b* a b PGCD / 
» 


» 
#PPCM' STO 


«-+ab 
« 
IFbO== 
THEN a 
ELSE b a b MOD 
PGCD 
END 


» 
#PGCD’ STO 


Mode d’emploi 


1) Entrer n inférieur ou égal à 13 et supérieur à 1 
comme argument dans la pile. 


Par exemple : 
n:5 


2) Taper 8er. On obtient le tableau des nombres de 
Bernoulli d'indice pair contenant les numérateurs et 
dénominateurs. 














Noter que les 2 premiers éléments sont: By, B,; puis 
B Bone 


Par exemple : 


EL A 1 
L'A1 21 
[ 1 6] 
[-130] 
[© 142] 
t-130] 
[ 566] 


Les numérateurs et dénominateurs des nombres de 
Bernoulli  croissent très vite et changent 
alternativement de signe. Un recours à la 
multiprécision serait utile. Si le coeur vous en dit!. 


Asdin AOUFI (562) 


INTEGRALES EULERIENNES 
COMPLEXES 


Le HP-48SX est un fantastique outil pour faire du 
calcul numérique mais présente le même défaut que 
son aïeul HP-28S sur la fonction T d’Euler. Il ne peut 
l'évaluer dans le plan complexe! 


Nous proposons un programme de calcul qui utilisant 
les nombres de Bernoulli - cf article précédent - se 
base sur la formule de Binet pour : 

- calculer T, 

- calculer 8. 


Les programmes 


«+2 
< !LNC2*m)/2+C2-.5)*LNCZ)-2/ NUM 

113 
FOR m 
1BCm+2,1)/CBCm+2,2)*2*m 
*(2*m-1)*z*(2*m-1))! 
NUM + 
NEXT EXP 


» 
?GAMMA' STO 


<+xYy 
1 (GAMMACX)+GAMMA( y) }/GAMMACx+y) ! 
NUM 

» 

#BETA' STO 


13 BER ’B’ STO 


1) Entrer x comme argument dans la pile. 
Par exemple : 
xX=5 


2) Taper cAMMA.On obtient la valeur der 
Par exemple : 
23.9999999998 


3) Entrer x et y comme arguments dans la pile. 
Par exemple : 
22 


4) Taper 8ETA.On obtient la valeur de 8 
Par exemple : 
0.33350419019 à comparer à 1/3. 


5) Entrer x complexe comme argument dans la pile. 
Par exemple : 
x 2: (5,5) 


6) Taper GA“MA.On obtient la valeur der 
Par exemple : 
C-0.974395241698, 2.00668988275) 


Compte tenu du faible ensemble de nombres de 
Bernoulli considéré on obtient une précision 
moyenne . 


Asdin AOUFI (562) 


FONCTION D'ERREUR 


Le numéro précédent JPC 73/75 présentait divers 
programmes de Robert Pulluard pour évaluer la 
fonction d’erreur à laide de la série 
hypergéométrique. 


Revenons-y aujourd’hui pour proposer une autre 
méthode de calcul qui tient compte des 
caractéristiques de la fonction UTPN. 


L’astuce est lisible dans le programme ERFB. 
Les programmes 
« 

+ x 2//n*f(0,x,EXPC-T"2),T)' -NUM 


» 


fERFA’ STO 
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«+ x 
«10.5 x UTPN 2 * - 
» 

» 

lERFB’ STO 


Mode d'emploi : 


1) Entrer x comme argument dans la pile. 
Par exemple en mode sn: 
x 3 0.5 


2) Taper ERFA. On obtient la valeur d’'ERF(x); 
-520499877811 
IERR = 4.6E-12 


3) Taper ERF8. On obtient instantanément la valeur 
approchée d’'ERF(x); 
520499877814 


On observe le même résultat à epsilon près entre les 
deux programmes avec un avantage en temps 
considérable pour le second. 


Si vous faites des calculs de diffusion il vous sera 
sûrement très utile comme élément de base pour des 
formules complexes , pour ma part je lutilise 
quotidiennement. 


Asdin AOUFI (562) 
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HP-71 


A. Rottman Désassembleur en Basic 12 
E. Gengoux & A. Rottman Problèmes de disquettes LIF 13 
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L'OPERATION DE 
DESASSEMBLAGE 


La présentation des instructions de lASSEMBLEUR 
trouve une extension très intéressante dans les 
procédures de désassemblage. 

Un des programmes les plus intéressants de 
désassemblage a été publié par J. Taillandier dans 
Micro Revue 5/1985 et sera discuté en détail dans cet 
article. Il faut souligner que cette discussion est à la 
fois utile pour lapprentissage du BASIC et de 
lassembleur. 


Structure et façon de travailler du programme 
1- Variables essentielles : 


A0= Adresse; N$(1$)=Code; L$= Instruction. Le but 
du programme est d'écrire ces 3 variables (ligne 
8520). 


On a montré précédemment que lensemble des 
instructions de l’Assembleur sont codés avec des 
symbits ayant de 2 à 18 nibs. Certaines instructions 
contiennent dans le code une sélection du champs du 
registre, une distance de transfert ou une constante. 


Les codes des instructions peuvent commencer par un 
des 16 caractères hexadécimaux (0 à F) qui 
introduisent donc une division en classes (les lignes 
300, 705, 1010, 1015, 1500, 1600, 1620, 1640, 5005, 
5000, 5500, 8300, 8345, 8365, 8400 du programme). 
Les classes les plus développées sont les 1 et 8. 


L’algorithme du programme est basé sur une analyse 
des 4 premiers caractères du code qui sont retenus 
dans la variable N$. On introduit une notation spéciale 
pour le 2ème, 3ème et 4ème caractères 
respectivement M$, 0$ et PS. 


En fonction de la valeur du premier caractère la ligne 
294 branche vers une classe différente définie par ce 
premier caractère de l'instruction. 


Si par exemple le premier caractère est O0 on est 
transféré à la ligne 300. Les instructions de cette 
classe ont 2 à 4 bits. Les instructions à 2 bits ont le 
deuxième caractère variable de 0 à F avec E qui 
manque, parce que les instructions classe 0 à 4 bits 
ont toutes E en deuxième position et le caractère qui 
fait la différence est le quatrième. 


Alors la procédure adoptée est la suivante : 

pour 2 ou 4 bits on lit d’abord dans un tableau ASC ) 
l'ensemble des instructions de la classe respective; le 
tableau A$C ) est dimensionné maximalement DIM 
A$(15)161 et on choisit après, en fonction du caractère 


———————————————— 


2, cms) le terme ASCHTDCMS)) et similairement pour les 
instructions 4 bits le terme ASCHTD(PS)), (PS étant le 
4ème caractère). Il faut ajouter que dans le code de 
l'instruction, la sélection du champs du registre se fait 
pour chaque instruction par addition des caractères 
appropriés. 


Comme particularité du BASIC il faut souligner la 
mise en correspondance du tableau A$C > avec un bloc 
DATA, en faisant préalablement RESTORE "“# Lignes. Si 
on examine la classe 1 on a des instructions à 3, 4, 6, 7 
nibs. 

Pour toutes les instructions, dont le deuxième 
caractère M$>5, l’instruction est construite dans le 
programme (à partir de la ligne 815), instructions 
classe 1, avec 6 comme deuxième caractère du code, 
et ayant la forme : 

D0=D0+#n 


Le nombre de caractères lus, pour chaque instruction, 
tient compte de nombre de nibs de l'instruction 
respective. 

La fonction FNP est équivalente à PEEK. 

Les autres fonctions FNA$, FNB$, FNC$ servent pour 
calculer les adresses relatives nécessaires pour 
effectuer respectivement un transfert court, long et 
très long (256, 4096, 65536 octets). 

En général la moitié de ces distances est positive et 
l'autre moitié (supérieure) est négative. 


Maintenant on peut se demander si au lieu d’utiliser 
un fichier contenant l’ensemble des instructions de 
lAssembleur, introduites dans le programme sous 
forme de blocs DATA, on ne peut extraire ces 
instructions, du module FORTH-ASSEMBLEUR. 
Or cette opération est possible, et elle est faite par le 
programme AS1. 


Ce programme exploite la table qui se trouve à partir 
de l'adresse E7407 et la structure de cette table est la 
suivante: 

Classe de l’opcode 2 nibs, longueur du texte 1 nib, 
l'instruction 12 nibs, les drapeaux 2 nibs, la longueur 
du code de l'instruction 1 nib, le codage de 
l'instruction 5 nibs, la variable A 1 nib et la variable 8 
1 nib. 


Les opcodes sont groupés en 43 groupes (0-42), et 
chaque groupe contient au plus 15 instructions. 


Les drapeaux peuvent avoir 8 valeurs qui séparent les 
instructions fournissent une information pour la 
boucle principale ou précisent que l'instruction est la 
dernière de la chaîne. 


L’arrangement des opcodes dans un groupe respecte 
une disposition ayant l’ordre alphabétique 
D-B-F-A-C-E-G. La fonction HASk (adresse EEFO0) est 











utilisée dans les procédures d’assemblage, pour 
déterminer le groupe. 


L’algorithme consiste à prendre les trois bits d'ordre 
inférieur de chaque caractère de l’opcode et de 
former une chaîne connexe de 18 nibs. En prenant le 
mod 43 de cette valeur on obtient le groupe. 


Aurel ROTTMAN (289) 





PROBLEMES DES DISQUETTES 


Pour pouvoir réaliser une liaison entre divers 
ordinateurs fabriqués par HEWLETT PACKARD, 
on a choisi le format appelé LIF (logical interface 
format). Ainsi par exemple pour le HP-75, on a 
adopté le format LIF1, et pour le HP-71, le format 
LIF; en même temps pour toutes les séries 200, 300, 
500 on a adopté des procédures capables de lire et 
d'écrire des fichiers texte. 


Ces procédures présentent une grande importance 
pour l'impression du bulletin de notre club. Mais il 
s’est avéré, qu'au moment où on a eu besoin 
d'effectuer cette opération, on ne savait pas quel était 
le type de la disquette utilisée, et en quoi elle différait, 
par rapport à une disquette standard, formatée sur le 
HP-71. 


Le but de cette présentation est double : 


1- permettre une compréhension du mécanisme de 
transfert HP71-IPC ou vice versa , 


2- donner la possibilité aux auteurs d’articles, pour 
notre bulletin, et qui peuvent nous les envoyer sur une 
disquette, de formater cette disquette, pour qu’elle 
soit compatible à la fois avec le HP-71 et l'IPC. 


Le formattage d’une disquette implique spécialement 
une écriture de l’enregistrement (secteur) zéro de la 
disquette, qui comporte 256 octets. (Voir HP824014 
HP-IL Interface Owners Manuel for HP-71 p233). 
Pour les disquettes HP-71 le catalogue des fichiers 
commence avec le secteur 2. 

Si on analyse le secteur zéro de la disquette HP-71, et 
celui de la disquette LIF-IPC on a la situation 
reproduite dans le tableau suivant : 








Octets| Nature de[Néces|Disquette Disquette | 
Sect. |l'enregis.[sité [HP71 ILIF-1PC | 
zéro | 1HP71 | [ 





1-2 [identific.]| oui |0800 0800 | 
3-8 [Etiquette | oui |c49464020202|2554E4350202| 
9-12 [Enreg.dép.| oui [00000020 [00000020 | 





13-14 |Sys.HP3000] Non [0100 10100 | 
15-16 [Non util. | Non [0000 0000 | 





17-20 [Long.Direc| Oui [0000004 [00000041 | 





21-22 [Version | Oui [0010 0010 | 





23-24 [Non utilis| Non [0000 0000 | 





25-28 [Piste/surf| Oui*[000000D& [0000006 | 
29-32 |No.surfac.| oui*[00000020 [00000020 | 
33-36 |Enreg/pist| Oui*|00000001 100000001 | 
37-42 |Datetemps| Non [092002227045 |688052110000| 
43-256|Ext.&Maint| Non | zéro zéro | 











*au cas ou La valeur ‘version! # 0 | 





La conclusion, en examinant le tableau, est la 
suivante: 


la disquette HP-71 peut être rendue compatible à 
IPC, par un changement des octets 19 et 20 du 
secteur zéro, les octets étant numérotés de 1 à 256. Il 
faut, en utilisant la fonction RREC$, du JPCROM, 
remplacer D4 par A1. 


E. Gengoux(108) & A. Rottman(289) 
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9 
10 
15 
50 

290 
292 
293 
29% 
310 
312 
315 
320 
325 
330 
707 
710 
720 
78: 
80: 
85 
875 
880 
885 
895 
900 
905 
910 
915 
920 
925 
930 
935 
940 
945 
950 
955 
96. 
96: 
97 
975 
980 
98: 
990 
99 
1000 
1005 


Nan 


as 


a 


ë 


1011 


1020 
1030 
1035 
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Programme DISAS (Désassembleur, nécessite REVLEX) 


DISAS J. TAILLANDIER MICRO 5/85 

OPTION BASE O à DESTROY JS 

DIM AS(15) [61 ,S$(7) [21 ,NS [41 ,MS [4] , 151201 ,C$(11) [61,515] 

DIM A7SC7) [6], LS 301 ,LOS(15) [6] ,M0S(16) [51,M18(16) 17] 

READ S$(),C$C),A7SC) 

INPUT ‘Start add? /;J$ à A=HTD(JS) 

IF KEYDOWN THEN END ELSE N$=FNP$(A,4) @ AO=A à N=HTD(NS[1,11)+1 
MS=NSI2,2] à OS=NSI3,3] à PS=NS[4,4] à A=A+2 à IS=NS[1,2] 

ON N GOTO 310,707,1011,1020,1505, 1605, 1625, 1645,5005,5000,5505,5525,8310,8360,8370,8410 
CLASS 0 

1F M$='E THEN 320 

RESTORE 9100 à READ ASC) 

RESTORE 9100 à READ ASC) 9 LS=ASCHTD(MS)) à GOTO 8520 

RESTORE 9170 à READ ASC) 9 LS=ASCHTD(PS)) 

IF O$=’F' THEN LS=LS8" A’ ELSE LS=L$8" ’&SSCHTD(OS)) 

IS=ISROSRPS à A=A+2 à GOTO 8520 

CLASS 1 

N=HTDCMS)+1 

ON N GOTO 720,785,805,857,875,895,915,925,935,945,955,965,975,985,995, 1005 
RESTORE 9200 à READ ASC) 3 LS=ASCHTD(OS)) à A=A+1 à 1$=1$80$ à GOTO 8520 
RESTORE 9210 à READ ASC) à LS=ASCHTD(OS)) à A=A+1 à 1$=1$80$ à GOTO 8520 
RESTORE 9220 à READ ASC) à LS=ASCHTD(O$)) à A=A+1 à 1$=1$80$ à GOTO 8520 
RESTORE 9140 à READ ASC) 3 LS=ASCHTD(OS)) 3 A=A+#1 à 1$=1$80$ à GOTO 8520 
N=HTD(OS) à LS=A7SCMOD(N,8)) 

IF N>7 THEN LS=LS&' B' ELSE LS=LS8" A 

A=A+1 à 1$=1$80$ à GOTO 8520 

N=HTD(O$) à A=A+2 

IF N<B THEN LS=A7SCN) 9 LS=LSR' "&SSCHTD(PS)) 

IF N>7 THEN LS=A7SCMOD(N,8)) à LS=LS&" "RDTHSCHTD(PS)+1) 

IS=1S80S8PS à GOTO 8520 

N=HTD(OS) à N=N+1 9 JS=STRS(N) à 1$=1$80$ 

L$="D0=D0+ '&JS à A=A+1 8 GOTO 8520 

N=HTD(OS) à N=N+1 9 JS=STRS(N) à 1$=1580$ 

LS="DI=D1+ &JS à A=A+1  GOTO 8520 

N=HTD(OS) à N=N+1 à JS=STRS(N) à 15=15808 

L$="D0=D0- '&J$ à A=A+1 à GOTO 8520 

A=A+2 à KS=0SRPS à IS=IS8KS 

L$="D0=(2) ’BREVS(KS) 3 GOTO 8520 

ASA+2 à KS=OSSPSRFNPSCA,2) à A=A+2 à IS=ISEKS 

L$="D0=(4) 'EREVS(KS) à GOTO 8520 

A=A+2 à KS=OSSPSRFNPS(A,3) à A=A+3 à IS=ISEKS 

LS="D0=(5) 'BREVS(KS) 9 GOTO 8520 

ASA+#1 à 1$=1$80$ à N=HTD(OS) à N=N+1 à JS=STRS(N) 

L$=/D1=D1- 8J$ à GOTO 8520 

A=A+2 9 KS=0S8PS à IS=IS8KS 

LS=/D1=(2) &REVS(KS) à GOTO 9520 

A=A+2 à KS=OSRPSEFNPS(A,2) à ArA+2 à IS=158KS 

L$=/D1=(4) 'BREVS(KS) à GOTO 8520 

KS=OS&PSEFNPS(A,3) 9 A=A+3 à IS=IS8KS à LS=/D1=(5) /BREVS(KS) à GOTO 8520 











CLASS 2 

L$='P= ’&MS Q GOTO 8520 

CLASS 3 

N=HTD(M$) à N=N+1 Q J$=STRS(N) à KS=FNPSCA,N) à A=A+N à L$='LC('&JS&!) ? 
1$=1$8KS 


LS=LS&REVS(K$) à GOTO 8520 

















- CLASS 4 
1505 KS-MS&O$ à 1$=1$805 
1507 IF K$=/20’ THEN L$="NOP3’ 
1510 IF K$=/00’ THEN L$=/RTNC’ ELSE L$=/GOC #&FNASCKS,A-1) 
1515 A=A+1 à GOTO 8520 
- CLASS 5 
1605 KS=M$80$ à 1$=1$80$ 
1610 IF K$=/00’ THEN L$=’RTNNC’ ELSE L$=/GONC ’&FNASCKS,A-1) 
1615 A=A+1 à GOTO 8520 
- CLASS 6 
1625 KS=0$8PS à IS=ISEKS 
1627 1F M$&K$=/300 THEN L$="NOP4’ à A=A+2 à GOTO 8250 
1628 IF MS&K$=/400’ THEN L$="NOP5’ à 3 à 1$-1$&'0’ à GOTO 8520 
1630 L$=’GOTO l&FNBS(MSEKS,A-1) à A=A+2 à GOTO 8520 
- CLASS 7 
1645 KS=MSSOS&PS à IS=-ISROS&PS à A=A+2 
1650 L$=/GOSUB ’&FNBS(K$,A) à GOTO 8520 
5000 SFLAG 63 à GOTO 5017 1! CLASS 9 
5005 CFLAG 63 ! CLASS 8 
5007 N=HTD(M$)+1 
5010 ON N GOTO 5065,5115,5150,5185,5220,5235,5240,5265,5280,5295,5017,5017,5305,5310,5325,5330 
5017 IF FLAG(63) AND M$>/7! OR NOT FLAG(63) AND M$=’B’ THEN RESTORE 9020 ELSE RESTORE 9000 
5020 READ A$() à L$=ASCHTD(O$)) à A=A+1 à 1$=1$80$ 
5035 IF NOT FLAG(63) THEN L$=LS$8' A’ ELSE L$=L$&’ ’&SS(MOD(HTD(MS),8)) 
5040 GOTO 8500 
5065 A=A+1 à 1$=1$80$ 
5070 IF O$<>'8' AND O$<!C! THEN L$-CS(HTD(0$)) à A=A+1 à 1$=1$80$ à GOTO 8520 
5075 1F 0$=/8 AND P$=/F’ THEN L$=’INTOFF’ à A=A+1 @ I$=IS&P$ à GOTO 8520 
5080 IF 0$='8 AND P$=/0’ THEN L$=’ INTON’ 
5090 IF O$=/E’ THEN L$=/SREQ?’ à GOTO 8520 
5095 1F O$=/C’ THEN L$=’C=P l&P$ à A=A+1 à 1$=I$&P$ à GOTO 8520 
5100 D' THEN L$="P=C l&P$ à A=A+1 à IS$=IS&PS à GOTO 8520 
5105 IF O$=/F' THEN L$='CPEX ’&P$ à A=A+1 à I$=I$&PS à GOTO 8520 
5115 A=A+1 à 1$=1$80$ 
5120 N=HTD(0$) à IF N<=7 THEN RESTORE 9060 ELSE 5125 à READ A$() à L$=AS(N)&'C' 
5122 GOTO 8520 
5125 N=POS('CDEF’,0$)-1 à L$='ASRBBSRBCSREDSRB/ [N*4+1,N*4+4] 
5130 GOTO 8520 
5150 A=A+1 à 1$=1$80$ 
5155 IF O0$=/1 THEN L$='XM=0’ à GOTO 8520 
5160 IF 0$=/2' THEN L$='SB-0’ @ GOTO 8520 
5165 IF 0$=’4' THEN L$='SR=0’ à GOTO 8520 
5170 IF O$='8’ THEN L$=’MP-0’ à GOTO 8520 
5175 IF O$='F’ THEN L$=/CLAMST’ à GOTO 8520 
5185 A=A+1 à 1$=1$80$ 
5190 IF O$='1’ THEN L$=’?XM-0’ à GOTO 8500 
5195 IF O$=/2 THEN L$=’?S8-0’ à GOTO 8500 
5200 IF O0$='4 THEN L$=’?SR-0’ à GOTO 8500 
5205 IF O$='8 THEN L$=’?MP=0’ à GOTO 8500 
5220 L$="ST=0 ’8&0$ à A=A+1 à 1$=1$80$ à GOTO 8520 
5235 L$='ST=1 /&O$ à A=A+1 à 1$=-1$80$ à GOTO 8520 
5240 L$=’?ST=0 ’&0$ à A=A+1 à 1$=1$80$ 9 GOTO 8500 
5265 $&0$ à GOTO 8520 
5280 L$=’?P#0 ’&0$ à A=A+1 9 1$=1$80$ à GOTO 8500 
5295 L$=/?P=0 ’80$ à A=A+1 9 1$=1$80$ 9 GOTO 8500 
5305 K$=FNP$(A,4) à I$=I$8KS à L$='GOLONG ’&FNCS(KS,A) à A=A+4 à GOTO 8520 
5310 K$=FNP$(A,5) à I$=IS8KS à L$=/GOVLNG ’&XFN94004(K$) à A=A+5 à GOTO 8520 
5325 K$=FNP$(A,4) à IS=IS8KS à A=A+4 à L$=/GOSUBL "&FNCS(KS,A) à GOTO 8520 
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5510 READ 


5530 READ 


86: 


D 


- DATA 
8990 DATA 
8991 DATA 
8995 DATA 
9000 DATA 
9020 DATA 
9030 DATA 
9060 DATA 
9080 DATA 
9090 DATA 
9100 DATA 
9110 DATA 
9120 DATA 
9140 DATA 
9150 DATA 
9170 DATA 
9180 DATA 
9185 DATA 
9190 DATA 
9200 DATA 
9210 DATA 
9220 DATA 
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5330 KS=FNP$(A,5) à IS=ISEKS à A=A+5 
5335 L$='GOSBVL ’&XFN94004(K$) à GOTO 8520 
- CLASS À 
5505 N=HTD(MS) à IF N<8 THEN RESTORE 9080 ELSE RESTORE 9120 


A$C) à LS=AS(HTD(O$)) à A=A+1 à 1$=1$80$ 


5515 L$=L$&SS(MOD(N,8)) à GOTO 8520 
- CLASS B 
5525 N=HTD(MS) à IF N<8 THEN RESTORE 9185 ELSE RESTORE 9060 


A$C) à L$=ASCHTD(O$)) 


5535 L$=LS&’ ’&SS(MOD(N,8)) à A=A+1 à 1$=1$80$ à GOTO 8520 
+ CLASS C 

8310 RESTORE 9080 à READ ASC) à L$=ASCHTD(MS))&’ A’ @ GOTO 8520 
- CLASS D 

8360 RESTORE 9120 à READ A$() à L$=AS(HTD(MS))&’ A’ à GOTO 8520 
- CLASS E 

8370 RESTORE 9185 à READ A$() à L$=ASCHTD(MS))8’ A’ @ GOTO 8520 
- CLASS F 

8410 RESTORE 9060 à READ A$() à LS=AS(HTD(MS))&’ A’ à GOTO 8520 
+ SUBROUTINES 

8500 GOSUB 8525 à I$=-FNP$CA,2) à J=A à A=A+2 à AO=A 

8510 IF 1$='00’ THEN L$=/RTNYES’ ELSE L$=/GOYES ’&FNAS(I$,J) 

8520 PRINT DTH$(AO);TAB(8);I$;TAB(10+LEN(I$));L$ à GOTO 292 

8525 PRINT DTH$(AO);TAB(8);1$;TABC10+LEN(I$));L$ @ RETURN 

8600 DEF FNAS(I$,J) 

8610  K=HTD(REVS(1$)) à IF K>127 THEN K=K-256 

8615  FNA$=DTH$(J+K) à END DEF 

0 DEF FNB$(I$,J) 

8625  K=HTD(REVS(1$)) à IF K>2047 THEN K=K-4096 

8630  FNB$=DTH$(J+K) à END DEF 

8635 DEF FNCS(1$,J) 

8640  K=HTD(REVS(1$)) à IF K>32767 THEN K=65536-K 

8645  FNC$=DTH$(J+K) à END DEF 

8700 DEF FNP$(K,1)=PEEKS(DTH$(K),1) 


D PriruPr PXST 7 X1,! S!,1 M," B',' W' 
OUT=CS,OUT=C,A=IN,C=IN,UNCFNG, CONFIG, C=1D, SHUTON, ,C+P+1,RESET, BUSCC 











DATO=A,DATI=A,A=DATO, A=DAT1 ,DATO=C,DAT1=C, C=DATO, C=DAT1 
?A ,2A2C,20=D, ?A#B, ?B#C, ?A#C, 2C#0, ?A=0,?8=0, ?C=0, 2-0, ?A#O, ?B#0, 2C#O, ?DEO 
2A>B,28>C,2C>A,2D>C,2A<B,2B<C, 2C<A, 2D<C, 24>28, 2B>=C, 2C>=A 


2D>=C,?A<=B,2B<=C, 2C<=A,?D<=C 
ASL,BSL,CSL,DXL,ASR,BSR,CSR,DSR,A=-A,B=-B,C=-C,D=-D,A=-A-1,B=-B-1,C=-C-1,D=-D-1 
ASA+B,B=B+C,C=C+A,D=D+C,A=A+A,B=B+B, C=C+C,D=D+D,B=B+A,C=C+B 
A=A+C, C=C+D ,A=A-1,8=8-1,C=C-1,D=D-1 
























RTNSXM,RTN,RTNSC,RTNCC, SETHEX, SETDEC,RSTK=C, C=RSTK, CLRST 
C=ST,ST=C,CSTEX, P=P+1,P=P-1, ,RTI 
A=0,8=0,C=0,D=0,A=8,B=C,C=A,D=C,B=A,C=B,A=C,C=D, ABEX,BCEX, ACEX, CDEX 
DO=A,D1=A,ADOEX,AD1EX,D0=C,D1=C, CDOEX, CDIEX,DO=AS,DI=AS 

ADOXS, AD1XS,DO=CS,D1=CS,CDOXS, CDIXS 
ASABB,B=B8C,C=C8D,D=D8C,B=B8A, C=C8B,A=ARC,C=CED,A=AIB,B=B1C 
C=CIA,D=DIC,B=BIA, C=CIB,A=AIC,C=CID 

ASA-B, LA=A+,B=8+1,C=C+1,D2D+1 

B=B-A, D,A=B-A,B=C-B,C=A-C,D=C-D 
RO=A,RR1=A,R2=A,R3=A,R4=A, ,, ,RO=C,R1=C,R2=C,R3=C,R4=C,,, 





ASRO,AZR1,AER2,AER3,AERG,,, ,C=RO,C=R1,C=R2,C=R3,C=RÉ,,, 
AROEX,ARTEX,AR2EX, AR3EX,ARGEX, , ,, CROEX,CRIEX,CR2EX,CR3EX,CRÉEX, , , 
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LE NOUVEAU HP-95 


Annoncé depuis quelque temps déjà, la nouvelle 
version du HP-95 devrait être disponible au moment 
où vous lirez ces lignes. 


La principale différence réside dans sa mémoire 
principale portée à 1 Mo, au lieu des 512 Ko de la 
première version. Ceci permettrait donc de porter la 
mémoire de base à la limite fatidique des 640 Ko de 
MS-DOS, et réserver les 384 Ko restants au disque 
dur C. 


D’autre part, de nouvelles fonctions DOS auraient été 
ajoutées, ainsi qu'une meilleure gestion de la 
mémoire. 


Le seul point noir réside dans son prix, environ 1000F 
plus cher que la version 512 Ko, qui reste cependant 
commercialisée. 


Les personnes possédant l’ancien modèle peuvent 
cependant bénéficier d'une opération de reprise 
organisée par EduCALC. En effet, cette bien connue 
société californienne propose à toute personne 
envoyant lancien modèle, accompagné d’un 
règlement de 195$, d’envoyer en retour une version à 
1 Mo. Ce type d'opération est étudiée par certains 
distributeurs parisiens, mais reste conditionnée par 
HP France. Si cela est possible, nous vous en 
informerons dans le prochain numéro. 


Jacques Belin (123) 


TO RUN OR NOT TO RUN 


Bien que le HP-95 soit un "compatible IBM", nous 
avons constaté que certains programmes PC 
fonctionnaient mal, ou ne tournaient pas du tout sur 
le HP-95. Ceci est souvent causé par certains 
programmes fonctionnant à un trés bas niveau, pour 
attaquer par exemple l'affichage ou le disque C. 
D'autre part, certains programmes, bien qu’il n’aient 
pas été ecrits spécifiquement pour le HP-95, ont un 
affichage qui peut être parfaitement adapté pour la 
machine. 


Cet rubrique, que vous retrouverez régulièrement 
dans les prochains JPC, leur est consacré. Nous vous 
indiquerons quelle est la version testée, car il est fort 
possible qu’une nouvelle version du programme 
fonctionne mieux que la précédente, ou inversement. 


Nous vous indiquerons aussi si ils sont dans le 
domaine public (freeware), en shareware, ou 
commerciaux. Il est bien entendu que si nous nous 
efforcerons de faire circuler ces deux premiers types 
de programmes, nous ne pourrons pas redistribuer 
des programmes commerciaux... 


Programmes Conseillés : 


FSD.COM Ce programme, dont lécran de 
présentation indique IBM Intemal Use Only, est un 
débugger permettant l'analyse de programmes COM 
ou EXE. Sur IBM, l'écran affiche différentes zones : 
Registres CPU, Code désassemblé du programme et 
contenu de deux zones mémoire en Hexa-décimal (la 
deuxième comporte en outre la correspondance en 
ASCIT). Sur l'affichage du HP-95, les deux premières 
zones (les plus importantes à mon avis), sont visibles 
en totalité. 


Programmes tournant imparfaitement : 


PC TOOLS (version 1.00, commercial) : Sur cet 
utilitaire bien connu, il est possible d’afficher l’état de 
fragmentation des disques (MAPPING). Or si cela est 
possible sur le disque A (carte mémoire), nous ne 
pouvons pas visualiser celui du disque C, car le 
programme ne trouve pas la FAT. Cela est peut-être 
dû au fait que ce disque ne comporterai pas de table 
de partition sur le HP-95. 


POWER METER (The Database Group, version 1.5, 
commercial ?) : Ce programme, permettant 
d’effectuer tout une série de tests de performances du 
PC, fonctionne relativement bien, sauf en ce qui 
concerne certains accès disques, sûrement pour les 
mêmes raisons que PC TOOLS. Par exemple, il est 
impossible de connaitre le temps d’accès du disque C, 
mais on peut peut voir celui du disque A, qui est de 2 
milli-secondes (avec un taux de transfert de plus de 
2300 Ko/s) ! 


Programmes ne fonctionnant pas : 


SIDEKICK (Borland, version 1.52, commercial) : 
Ensemble d’utilitaires résident. Plante le système. 


SPEED (Landmark, version 0.99, Freeware) 
Programme de test de performances du CPU. Plante 
({ntemal Stack Failure). 


CORETEST (Core, version 24, Freeware) 
Programme de test de performances de disque dur. 
Plante (Disk 0 not present). 














BRKBOX (Tim Burmeister, version 1.1, Freeware) : 
Programme résident affichant en permanence, en 
haut de lécran, l'état des lignes (données et 
handshakes) d’une interface RS-232. Plante. 


C’est tout pour aujourd’hui, si vous avez testé d’autres 
programmes pouvant entrer dans ces catégories, 
n'hésitez pas à nous le faire savoir, cette rubrique leur 
est ouverte ! 


Jacques Belin (123) 


DETECTION DU HP-95 PAR 
UN PROGRAMME MS-DOS 


le HP-95 comportant quelques différences notables 
par rapport à un IBM PC classique, comme par 
exemple la taille de l'affichage, il peut être nécessaire 
à un programme savoir sur quelle machine est en 
train de s’exécuter. 


Dans ce but, les développeurs du HP-95 on eu la 
bonne idée de nous fournir une fonction, accessible 
de façon standard par un appel d'interruption. 


Cette fonction est appelée par l'intermédiaire de 
l'interruption 15, fonction 4d, sous-fonction d4. Si elle 
est appelée sur un PC quelconque, les valeurs 
retournées dans les registres seront nulles, ou 
incohérentes, selon les différents BIOS. 


Par contre si la fonction est appelée sur le HP-95, les 
valeurs  retournées dans les registres du 
microprocesseur seront : 


Registre AH = code ASCII du caractère H° 
AL = code ASCII du caractère ’P° 
CH = code de la machine (1 pour le HP-95) 
CL = numéro de version de la machine. 





En assembleur, nous pouvons écrire une fonction 
utilisant cette interruption comme ceci : 





detect_hp95 : 
mov ax,4ddéh sinitialisation 
int 15 ;appel interruption 
test ax, HP! 3AX = PHP? 
jne notfnd non, on va plus bas 
test ch,01 iH=17? 
jne notfnd non, on va plus bas 
mov  ax,0001 3C'est un HP-95 
imp fin vers La fin 

notfnd : sub ax,ax ;AX = 0 

fin: ret zfin de La fonction 


En cas de détection du HP-95, le registre AX contient 
la valeur 1, sinon on y trouvera la valeur 0. 


Vous pouvez noter que le contenu du registre CL 
(version du HP-95) n’est pas pris en compte. Si les 
prochaines versions du HP-95 présentent des 
différences importantes, il faudra en tenir compte, 
peut-être dans la valeur retournée. Il est donc 
nécessaire, pour éviter tout problème futur, 
d'effectuer le test de la valeur retournée par 
detect_hp95 sur la valeur "0" et non sur la valeur 1", si 
on désire seulement savoir si on tourne sur HP-95 ou 
sur PC. 


Dans le même esprit, voici la même routine écrite en 
langage C: 


int detect_hp95(void) 
€ 
union REGS regs; 
int retour=0; 


regs.x.ax= Oxéddé; 

int86(0x15, &regs, &regs); 

ifCCregs.h.bh == ’H') && Cregs.h.bl =: 
88 Cregs.h.ch = 


pr) 
0x01)) 


return(retour); 
À 





retour= 


En cas d’exécution sur HP-95, la routine retournera la 
valeur "1", sinon ce sera la valeur "0". 


Jacques Belin (123) 
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POUR UNE POIGNEE DE 
FONCTIONS 


Récemment, je vous ai présenté une toolbox 
permettant de lire des disquettes LIF sur un IBM-PC. 
Comme promis, je vous présente aujourd’hui 
quelques commandes MS/DOS permettant de lister 
un catalogue et de manipuler certains fichiers. 


LIFCAT 


Cette commande permet d’afficher le catalogue d’une 
disquette LIF. 


Syntaxe : 
Lifcat [-a text] [-c] [-d device] [-e] [-l] [-t TYPE] 


Options : 

-a : Permet d’afficher un texte après les entrées 
affichées, pour indiquer par exemple un nom de 
disquette dans le cas d’un tri de plusieurs disquettes 
dans un même fichier (methode utilisée pour 
imprimer la premiere partie du catalogue de la 
programathèque HP-71). 


-c : Permet d'afficher le catalogue avec un format 
court, c’est à dire seulement les noms de fichiers sur 
plusieurs colonnes. 


-d : Sélection du lecteur de disquette. 0 pour le 
lecteur A, 1 pour B. Par défaut, c’est le lecteur 0. 


-e : Affichage des fichiers effacés. 


-L : Affichage au format long, c’est à dire avec les 
dates et heure de modification des fichiers, un en-tête 
donnant le Label de la disquette et des indications de 
longueur en fin de catalogue. 


-t : Affichage d’un type donné de fichier. Les noms 
reconnus sont : 
Pour la HP-41 : PR41, KE-41, ST-41, XM-41, CA41, 
WA:41, ML41 et BU-41. 
Pour le HP-71 : BASIC, LEX, BIN, DATA, FORTH, 
DATA, BIN, KEY, ROM71, APPT, GRAPH, ADRS, OBJ71 et 
SYM71. 
Pour le HP-75 : TEXT75, BAS75, LEX75, APPT7S, IORYS, 
VISI75 et ROMYS. 
Fichiers communs à plusieurs machines : TEXT et 
SDATA. 


Vous pouvez utiliser les filtres standards du DOS 
(more, sort, >, >>) pour rediriger les sorties vers 
limprimante ou un fichier. 
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Exemples : 


Affichage des fichers LEX au format court, sur le 
lecteur A:. 
Lifcat -d0 -c -t LEX 


Impression au format long de tous les fichiers, sur le 
lecteur B:, y compris les fichiers effacés. 
Lifcat -eldi >prn 


Création d’un fichier trié par nom de fichier de 3 
disquettes (avec indication du nom de disquette apres 
chaque entrée). Seuls les fichiers TEXT sont pris en 
compte. 
-mettre la disquette CAT1 dans le lecteur 

Lifcat -a cat1 -tTEXT >text.lif 
-mettre la disquette CAT2 dans le lecteur 

Lifcat -a cat2 -tTEXT >>text.lif 
-mettre la disquette CAT3 dans le lecteur 

Lifcat -a cat3 -tTEXT >>text.lif 

sort <text.lif >text.tri 


Notes : 

1- Les types de fichiers non reconnus sont affichés 
avec leur code numérique. 

2-Les types de fichiers doivent être tapés en 
majuscules. 

3- Les dates sont affichées dans le format déterminé 
par la variable COUNTRY de MS/DOS. 


LIFCP 


Cette commande permet la copie de fichiers TEXT. 
Elle effectue une conversion des caractères accentués 
en IBM ou Romans. Il est également possible de 
copier des fichiers d’un type différent. 


Syntaxe : 
DOS vers LIF : Lifep [-bl dos_file drive:LiF_FILE 
LIF vers DOS : Lifep [I-b] drive:LiF_FILE dos_file 


drive est le numéro du lecteur : 0 pour A:, 1 pour B: 
Options : 


-b : Permet de stocker un fichier LIF sur un fichier 
MS/DOS spécial sans tenir compte de son type, ni 
faire de conversion RS8-IBM. Le fichier DOS 
contient : un code de reconnaissance au format long 
(4 octets ayant la valeur 123123, suivi de l'entrée de 
directory (copie physique sur 32 octets), suivi de la 
totalité des enregistrements du fichier LIF lui-même. 
Cette option doit être réutilisée pour effectuer la 
copie dans l’autre sens (DOS->LIF). Cette option ne 
peut pas être utilisée sur un fichier DOS non créé 
avec cette option. 














Exemples : 
Lifcp c:\sretoto.txt O:TITI 
Lifcp -b 1:DESAL desal . Lex 


Notes : 


Pour les noms de fichiers LIF, les majuscules et 
minuscules sont significatifs. 

Certains fichiers HP-41 ayant des noms comprenant 
des caractères spéciaux ne pouront pas être 
manipulés. 


ACP 
Cette commande permet de générer un fichier LEX à 
partir d’un fichier créé par l’assembleur AREUH de 


Pierre David et Jannick Taillandier. 


Syntaxe : 
acp dos_file [drive:[LIF_NAMEI] 


drive est le numéro du lecteur : 0 pour A:, 1 pour B:. 
Par défaut c’est le lecteur 0. 


exemples : 
acp Lex 1: 
acp titi.ao 1:TOTOLEX 
acp c:\Lex\desal .a0 
Note : 


Si LIF_NAME n’est pas spécifié, le nom du fichier sera 
celui indiqué dans le source du LEX. 


Compilation des programmes 


Avec le TURBO C : La commande LIFCP utilisant un 
buffer adressé dans le tas externe, doit être compilé 
avec un modèle de mémoire générant des pointeurs 
longs. Pour cela, sélectionnez par exemple le modèle 
COMPACT. Pour réduire la taille des programmes, 
vous pouvez convertir les commandes LIFCAT et ACP en 
fichiers .COM. Pour cela, vous devez les compiler avec 
le modèle TINY puis utiliser la commande exe2bin 
pour créer le fichier COM. Vous ne pouvez pas 
convertir la commande L1FCP en format .COM 


Avec le Microsoft C : tous les programmes doivent être 
compilés avec l’option /AC. 

Autre Listing : getopt.c 

Cette fonction permet l’analyse des options au format 


UNIX. Un listing équivalent est fourni avec le TURBO 
C, mais pas avec le Microsoft C (à ma connaissance). 


Je vous rappelle que les sources de ces listings et les 
programmes compilés, sont disponibles sur une 
disquette (ainsi que d’autres commandes). Pour 
lobtenir, envoyez une disquette vierge au club, nous 
vous la retournerons rapidement. 


Jacques Belin (123) 


Note : Les articles et listings de la première partie de cet article, 
présentés dans le numéro 73/75, présentent de nombreuses 
erreurs, dues notamment au formatteur utilisé pour la mise en 
page. Etant donné la taille de cet article, nous n'en publierons pas 
la version corrigée. Par contre, les personnes qui en feront la 
demande pouront en obtenir une copie corrigée. 
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